home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / w95apps / blox / blox.1 / Depreciation (Designer).csf < prev    next >
Encoding:
Text File  |  1995-07-26  |  5.0 KB  |  141 lines
  1. Depreciation,132,150
  2. rem (C) Copyright 1995 AlphaBlox Corporation
  3.  
  4. BEGIN
  5. rem button attributes
  6. // memory
  7.     FONT,Memory,16,0,0,0,600,0,0,0,0,1,2,2,34,Arial
  8.     TEXTCOLOR,Memory,0,0,0
  9.     KEYCOLOR,Memory,0,255,0    
  10.     
  11.  
  12. // numbers
  13.     FONT,Number,-17,0,0,0,900,0,0,0,0,1,2,2,34,Arial
  14.     TEXTCOLOR,Number,255,255,255
  15.     KEYCOLOR,Number,0,0,255
  16.     
  17.  
  18. // ops
  19.     FONT,Ops,-17,0,0,0,900,0,0,0,0,1,2,2,34,Arial
  20.     TEXTCOLOR,Ops,255,255,255
  21.     KEYCOLOR,Ops,255,0,255
  22.  
  23.  
  24. // clear
  25.     FONT,Clear,16,0,0,0,600,0,0,0,0,1,2,2,34,Arial
  26.     TEXTCOLOR,Clear,0,0,0
  27.     KEYCOLOR,Clear,255,255,0
  28.     
  29.  
  30. //enter
  31.     FONT,Enter,17,0,0,0,700,0,0,0,0,1,2,2,34,Arial
  32.     TEXTCOLOR,Enter,255,255,255
  33.     KEYCOLOR,Enter,255,0,0
  34.  
  35. //symbols
  36.     BUTTONBITMAP,backspace,backspace,0
  37.     BUTTONBITMAP,root,root,0
  38.     BUTTONBITMAP,square,square,0
  39.  
  40. //business
  41.     FONT,Business,16,0,0,0,600,0,0,0,0,1,2,2,34,Arial
  42.     TEXTCOLOR,Business,0,0,0
  43.     KEYCOLOR,Business,192,192,192
  44.     
  45. //custom
  46.     FONT,Custom,16,0,0,0,600,0,0,0,0,1,2,2,34,Arial
  47.     TEXTCOLOR,Custom,255,255,255
  48.     KEYCOLOR,Custom,0,128,128
  49.     
  50.  
  51. //dep
  52.     FONT,Dep,16,0,0,0,600,0,0,0,0,1,2,2,34,Arial
  53.     TEXTCOLOR,Dep,0,0,0
  54.     KEYCOLOR,Dep,192,192,192
  55.  
  56.     
  57. //keypad look & feel
  58.     FONT,Title,-8,0,0,0,700,0,0,0,0,1,2,2,34,Ms Sans Serif
  59.     TEXTCOLOR,Title,255,255,255
  60.  
  61. // Solver position and group    
  62.     FONT,Solver,-8,0,0,0,400,0,0,0,0,1,2,2,34,Ms Sans Serif
  63.     TEXTCOLOR,Solver,255,255,255
  64.     KEYCOLOR,Solver,0,0,255    
  65.     SOLVER,130,21
  66.  
  67. //Global keyblox requirements
  68.     MODE,4
  69.     BASE,0
  70.     FONT,Title,16,0,0,0,700,0,0,0,0,1,2,2,34,Arial
  71.     TEXTCOLOR,Title,0,0,0
  72.     FONT,Title2,16,0,0,0,700,0,0,0,0,1,2,2,34,Arial
  73.     TEXTCOLOR,Title2,255,255,255
  74.  
  75.     BITMAP,0,0,1000,1000,calc_moon,0
  76.     BITMAP,22,22,9,9,AlphaBlox,0
  77.     TEXT,36,23,90,8,Title,"AlphaBlox"
  78.     TEXT,35,22,90,8,Title2,"AlphaBlox"
  79.     
  80. //instructions
  81.     TEXT,4,128,125,50,Title,"empty",depmode,"Straight line - Consists of Book value, Salvage, Life and Months.","Declining Balance - Consists of Book value, Factor %, Life and Months.","SOYD - Consists of Year#, Months, Life, Book value and Salvage."
  82.     TEXT,3,127,125,50,Title2,"empty",depmode,"Straight line - Consists of Book value, Salvage, Life and Months.","Declining Balance - Consists of Book value, Factor %, Life and Months.","SOYD - Consists of Year#, Months, Life, Book value and Salvage."
  83.     VARIABLE,depmode=1
  84.  
  85.     
  86. rem main keypad
  87.     LCD,4,5,124,15
  88.     BUTTON,4,21,15,11,Memory,"M+",1,memory plus
  89.     BUTTON,4,33,15,11,Memory,"M-",1,memory minus
  90.     BUTTON,4,45,15,11,Memory,"MR",1,memory recall
  91.     BUTTON,4,57,15,11,Memory,"MC",1,memory clear
  92.     BUTTON,4,69,15,11,Memory,"MS",1,memory store
  93.  
  94.     BUTTON,22,33,15,11,Number,"7",0,7
  95.     BUTTON,22,45,15,11,Number,"4",0,4
  96.     BUTTON,22,57,15,11,Number,"1",0,1
  97.     BUTTON,22,69,15,11,Number,"0",0,0
  98.     BUTTON,40,33,15,11,Number,"8",0,8
  99.     BUTTON,40,45,15,11,Number,"5",0,5
  100.     BUTTON,40,57,15,11,Number,"2",0,2
  101.     BUTTON,40,69,15,11,Number,"+/-",1,plus minus
  102.     BUTTON,58,33,15,11,Number,"9",0,9
  103.     BUTTON,58,45,15,11,Number,"6",0,6
  104.     BUTTON,58,57,15,11,Number,"3",0,3
  105.     BUTTON,58,69,15,11,Number,".",0,.
  106.  
  107.     BUTTON,76,33,15,11,Ops,"/",1,divide
  108.     BUTTON,76,45,15,11,Ops,"x",1,times
  109.     BUTTON,76,57,15,11,Ops,"+",1,plus
  110.     BUTTON,76,69,15,11,Ops,"-",1,minus
  111.  
  112.     BUTTON,76,21,15,11,backspace," ",1,backspace    
  113.     BUTTON,94,21,15,11,Clear,"CE",1,clear    
  114.     BUTTON,94,33,15,11,Business,"Tax",1,tax
  115.     BUTTON,94,45,15,11,Business,"%",1,percentage
  116.     BUTTON,94,57,15,11,Enter,"Ent",1,enter
  117.     BUTTON,94,69,33,11,Enter,"=",1,equals
  118.  
  119.     BUTTON,112,21,15,11,Clear,"AC",1,clear all
  120.     BUTTON,112,33,15,11,square," ",1,square
  121.     BUTTON,112,45,15,11,root," ",1,square root    
  122.     BUTTON,112,57,15,11,Business,"1/x",1,invert
  123.  
  124. rem depreciation
  125.     BUTTON,4,82,41,10,Custom,"Book",2,"Book=if(depmode=1,salvage+((depreciation*life*12)/months),if(depmode=2,depreciation*12*100*life/(Factor*months),if(depmode=3,if(Year no=1,(depreciation*(6*life+6)/months)+salvage,0),0)))"
  126.     BUTTON,46,82,40,10,Custom,"Life",2,"Life=if(depmode=1,months*(book-salvage)/(depreciation*12),if(depmode=2,book*months*Factor/(12*100*depreciation),if(depmode=3,if(Year no=1,(Months*(Book-Salvage)/(6*Depreciation))-1,0),0)))"
  127.     BUTTON,87,82,40,10,Custom,"Months",2,"Months=if(depmode=1,12*depreciation*life/(book-salvage),if(depmode=2,life*12*100*depreciation/(book*Factor),if(depmode=3,if(Year no=1,depreciation*((6*life)+6)/(book-salvage),0),0)))"
  128.     BUTTON,4,93,41,10,Custom,"Salvage",2,"Salvage=if(depmode=1,book-((depreciation*life*12)/months),if(depmode=2,0,if(depmode=3,if(Year no=1,book-(depreciation*((6*life)+6)/months),0),0)))"
  129.     BUTTON,46,93,40,10,Custom,"Year no",2,"Year no=if(depmode=1,0,if(depmode=2,0,if(depmode=3,1,1)))"
  130.     BUTTON,87,93,40,10,Custom,"Factor %",2,"Factor=if(depmode=1,0,if(depmode=2,depreciation*12*100*life/(book*months),if(depmode=3,0,0)))"
  131.     BUTTON,4,104,123,10,Custom,"Depreciation",2,"Depreciation=if(depmode=1,((book-salvage)/life)*months/12,if(depmode=2,book*(Factor/(100*life))*months/12,if(depmode=3,if(Year no=1,months,12*(life-(months/12)-Year no+2)/life)*(book-salvage)/(5*life+life+6),0)))"
  132.  
  133. //dep mode
  134.     BUTTON,4,116,35,10,Dep,"SL",4,depmode=1    
  135.     BUTTON,48,116,35,10,Dep,"DB",4,depmode=2    
  136.     BUTTON,92,116,35,10,Dep,"SOYD",4,depmode=3    
  137.  
  138.  
  139.  
  140. END
  141.